home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Organizational Aids / Flash Card Template / card_2908.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  2.2 KB  |  98 lines
  1. -- card: 2908 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2697
  5. -- name: 
  6. ----- HyperTalk script -----
  7. type tab
  8. type Tab
  9.  
  10.  
  11. -- part 1 (button)
  12. -- low flags: 00
  13. -- high flags: 8003
  14. -- rect: left=17 top=295 right=317 bottom=117
  15. -- title width / last selected line: 0
  16. -- icon id / first selected line: 0 / 0
  17. -- text alignment: 1
  18. -- font id: 0
  19. -- text size: 12
  20. -- style flags: 0
  21. -- line height: 16
  22. -- part name: Clear Answers
  23. ----- HyperTalk script -----
  24. on mouseUp
  25.   put number of cards into counter
  26.   put 1 into x
  27.   repeat while x < counter + 1
  28.     put " " into field 3
  29.     put x + 1 into x
  30.     go to next card
  31.   end repeat
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 2 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=256 top=298 right=321 bottom=281
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 1013 / 1013
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Next
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   put word 1 of field 3 into newString
  51.   put 1 into numStudentWords
  52.   put 2 into X
  53.   put " " into nextWord
  54.   repeat while nextWord <> ""
  55.     put word X of field 3 into nextWord
  56.     if nextWord is empty then exit repeat
  57.     put newString && word X of field 3 into newString
  58.     put numStudentWords + 1 into numStudentWords
  59.     put X + 1 into X
  60.   end repeat
  61.   put newString into Student
  62.  
  63.   put word 1 of field 2 into newString
  64.   put 1 into numCorrectWords
  65.   put 2 into X
  66.   put " " into nextWord
  67.   repeat while nextWord <> ""
  68.     put word X of field 2 into nextWord
  69.     if nextWord is empty then exit repeat
  70.     put newString && word X of field 2 into newString
  71.     put numCorrectWords + 1 into numCorrectWords
  72.     put X + 1 into X
  73.   end repeat
  74.   put newString into Correct
  75.  
  76.   if correct = student
  77.   then answer "That is correct" with "OK"
  78. else answer "That is wrong" with "Try Again" or "OK"
  79. if It = "Try Again"
  80. then exit mouseUp
  81. visual effect scroll left
  82. hide field 2
  83. go to next card
  84. tabKey
  85. end mouseUp
  86.  
  87.  
  88.  
  89.  
  90. -- part contents for background part 16
  91. ----- text -----
  92. Put the question word here
  93.  
  94.  
  95. -- part contents for background part 17
  96. ----- text -----
  97. put the answer here.  This card is hidden and
  98. only shows when the Answer button is clicked.